Imports BusinessLayer
Imports EntityLayer
Imports System.Data

Partial Class VistaSolicitudRequerimiento
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            ListarSolicitante()
            ListarPrioridad()
            ListarRequerimiento()

            Dim strNumRequerimiento As String
            strNumRequerimiento = Request.QueryString("strCodigo")

            Dim dt As DataTable
            dt = SolicitudRequerimientoBL.ListarxCodigo(strNumRequerimiento).Tables(0)

            txtNumero.Text = dt.Rows(0)(0).ToString
            txtFecha.Text = dt.Rows(0)(1).ToString
            txtNomRequerimiento.Text = dt.Rows(0)(2).ToString
            ddlTpRequerimiento.SelectedValue = dt.Rows(0)(3).ToString
            ddlPrioridad.SelectedValue = dt.Rows(0)(4).ToString
            txtJustificacion.Text = dt.Rows(0)(5).ToString
            txtObservacion.Text = dt.Rows(0)(6).ToString
            If Convert.ToBoolean(dt.Rows(0)(7).ToString) = True Then
                chkAprobado.Checked = True
            Else
                chkAprobado.Checked = False
            End If
            ddlSolicitante.SelectedValue = dt.Rows(0)(8).ToString

            dgDatos.DataSource = SolicitudRequerimientoProductoBL.ListarxCodigo(strNumRequerimiento)
            dgDatos.DataBind()

        End If
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("ListaSolicitudRequerimiento.aspx")
    End Sub

    Private Sub ListarSolicitante()
        ddlSolicitante.DataSource = SolicitanteBL.ListarTodo()
        ddlSolicitante.DataTextField = "NombreCompleto"
        ddlSolicitante.DataValueField = "CodigoSolictante"
        ddlSolicitante.DataBind()
    End Sub

    Private Sub ListarPrioridad()
        ddlPrioridad.DataSource = TipoPrioridadBL.ListarTodo()
        ddlPrioridad.DataTextField = "NomPrioridad"
        ddlPrioridad.DataValueField = "IdPrioridad"
        ddlPrioridad.DataBind()
    End Sub

    Private Sub ListarRequerimiento()
        ddlTpRequerimiento.DataSource = TipoRequerimientoBL.ListarTodo()
        ddlTpRequerimiento.DataTextField = "NomRequerimiento"
        ddlTpRequerimiento.DataValueField = "IdRequerimiento"
        ddlTpRequerimiento.DataBind()
    End Sub
End Class
